
Sub pword()

  Set objWordDoc = CreateObject("Word.Document")
  ObjWordDoc.Application.Visible=True
  objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(Composition.document.body.innerTEXT)
  objWordDoc.Application.ActiveDocument.SaveAs "c:\tempSample.doc", 0,False,"",True,"",False,False,False, False,False
  'objWordDoc.Application.printout()


End Sub
